uses crt
var n,i,k:integer
    x,y:real
begin
write('n=')
read(n)
k:=0
for i:=1 to n do
 begin
  x:=-1+2*random
  y:=-1+2*random
  write('x=',x:5:2,' y=',y:5:2)
  if (abs(x)<1)and(y>=-1)and(y<=x) then
   begin
    k:=k+1
    writeln('  попал')
   end
  else writeln('  не попал')
 end
writeln
write('Процент попаданий=',k/n*100:0:2)
end
